home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 55
/
055.d81
/
time trial
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
53 lines
5 poke53269,0:gosub 6000
6 :
7 :
8 rem the following lines are original
9 :
10 print"[147]";:v=53248:s=54272:pokev+32,9:pokev+33,0:rem 64 timetrial - s.glazer
20 fort=832to958:poket,-255*(abs(t-881.5)<41):next:poke2040,13:poke2041,14
30 x=52:y=136:pokev+27,2:pokev+21,3:pokev+29,2:pokev+39,4:pokev+40,5:pokev+2,42
40 pokev+3,128:pokev+21,3:q=peek(v+31):print"[159]0":t$="[149] "
50 t$=t$+" ":u$=left$(t$,20):printtab(12)u$:fort=1to10:printtab(10)t$
60 next:printtab(12)u$:pokes+24,15:pokes+6,240:pokes+4,49:ti$="000000"
70 pokev+1,y:pokev+16,x/256:pokev,x-peek(v+16)*256:q=peek(v+30)=peek(v+31)
80 print""tab(18)int(ti/6)/10:j=peek(56320):f=9*(abs(a)+abs(d))
85 iff>255thenf=255
90 d=d+((jand1)=0)-((jand2)=0):a=a+((jand4)=0)-((jand8)=0):x=x+a:y=y+d:pokes,f
100 ifpeek(v+31)and1orx<24ory<47ory>229orx>320thenpokev+39,1:a=0:d=0:pokev+39,4
110 ifc*peek(v+30)thenc=0:l=l+1:pokes-v,48+l:ifl=3then200
120 c=c+(x>278)*(abs(y-160)<10):goto70
130 :
131 :
132 :
133 rem the following lines are added
134 :
135 :
136 :
200 print"[199][193][205][197] [207][214][197][210] : [196]o you want to play again?":poke53269,0
201 geta$:ifa$="y"ora$="[217]"thenrun10
202 ifa$="n"ora$="[206]"then 300
225 goto 201
300 poke53269,.:poke54296,.
301 open15,8,15,"r0:one-screen winners=one-screen winners":input#15,er:close15
302 ifer<>63thenprint"[147]":end
305 load"one-screen winners",8
6000 poke53280, 0:poke53281, 0:print"[147]";
6001 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6002 print"[152] [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211] "
6003 print"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6004 print"[172] [146][187]"
6005 print" "
6006 print" "
6007 print"[163][163][163][163][163][163][163][163][163][160] T I M E T R I A L [146][163][163][163][163][163][163][163][163][163][160] ";
6008 print" [160]"
6009 print"[163][163][163][163][163][163][163][163][163] [146][163][163][163][163][163][163][163][163][163] By S. Glaze";
6010 print"r [160]"
6011 print"[163][163][163][163][163][163][163][163][163] [160][146][163][163][163][163][163][163][163][163][163] ";
6012 print" "
6013 print"[188] [146][190]"
6014 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6015 print"[152] PRESS SPACE[160]TO[160]CONTINUE "
6016 print"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
6020 geta$:ifa$<>" "then6020
6030 print"[147]":return